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MAILSEDIT EDIT OR ENTER A MESSAGE 16-Sep-1984 00:51:1 VAX-11 Bliss-32 V4.0-742 Page 

19-808- 1382 90:23:15 DISKSVMSMASTER: CMAIL.SRCJEDIT.832;1 . 
5 1 001 8 MODULE MAILSEDIT( ZTITLE ‘EDIT or ENTER A MESSAGE’ 
; § Oe IDENT = ‘V04-000' ) = 
; 05 1 BEGIN 
; 4 004 1 
; 5 005 1! 
s § O28 } , PeoaennerererneceneneneaeeNneereorerereeeereeNeereteenteteretetestereteteees 
° Hid ra 
3 8 Boe 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY » 
; 9 009 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
$ 19 Boi 9 : - ALL RIGHTS RESERVED. ® 
Py ; te 
3 \¢ pote 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
es 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ee | 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ee 0015 1 !* COPIES THEREOF MAY NOT B OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
s % B08 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
H i oots ! « TRANSFERRED. * 
Py 3 * 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $3 ot ! 7° CORPORATION. * 
; '® * 
3; 4 $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 0025 1 !* * 
; @ 0026 1 !* * 
: 27 0027 1 lara eee a eee eee AREER AREA EERE R TEER EERE REAR ERETEEEEEREERE EEE 
; oe 0028 1! 
3 $3 5 34 1 
; 0 0030 1 I++ 
; H it : FACILITY: VAX/VMS MAIL UTILITY 
3 38 0038 : ; ABSTRACT: Edit or just enter a mail message. 
; 35 0035 ! ENVIRONMENT: NATIVE/USER MODE 
: «37 0037 1 ! AUTHOR: LEN KAWELL, CREATION DATE: 25-NOV-1979 
; 3 0038 1! 
; 0039 1 ! MODIFIED BY: 
:; 40 0040 1! 
. a 0041 1! v03-016 ROPO023 Robert Posniak 16-JUL-1984 
; eg peg ’ Change references of XYZ to TPU. 
: 44 0044 1! v03-015 ROPO007 Robert Posniak 13-JUN-1984 
; 6465 0045 1! Check validity of input file spec before 
; 646 0046 1! entering editor. Check for illegal escape 
; rtf 9h 4 : sequence when entering message. 
; 0049 1 v03-014 BL0280 Benn Schreiber 4-MAR-1984 
: 50 050 1! Handle terminator not seen and data overrun differently 
: 2) Bes ’ since data may be returned. 
: 2g 9988 13 v03-013 BLS0272 Benn Schreiber 25-FEB-1984 
3 20 0085 ! Use LIBSF IND_IMAGE_SYMBOL 
: 56 0096 | i v03-012 BLS0263 Benn Schreiber 5-FEB-1984 
; OF 0057 1! If not using callable EDT, then copy message to temp file 
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14-56 -1984 00:51:1 VAX-11 BLi 
14- eet 99523:19 Disk KSVMSMA 
before calling editor. 


BLS0255 Benn Schreiber -1983 
Use global flags. Fix error bend ine in eoantsewren 
/edit work with sequential mail files. 


BLS0250 Benn Schreiber 88-Dec-1983 

Correct a een to not signal error if EDTINI 

not found. Signal error if not cailab le editor for READ/EDIT 
and EDIT commands. 


- Make 


BLS0246 Benn Schreiber 28-Nov-1983 
Add EDIT/EXTRACT, support for reading messages. 
BLS0226 Benn Schreiber 27-Jun-1983 


Correct cli$ calls for edit command so that , lt qualifiers 
work as advertised 


BLS0222 Benn Schreiber 16-May-1983 
use SMGSREAD _STRING. rather then LIBSGET_INPUT 
BLS0220 Benn Schreiber 30-Apr-1983 
Make /READ imply 7 NOJOURNAL 

BLS0211 Benn Schreiber 13-Mar-1983 


support EDIT co ommand, Load EDTSHR on the fly. In 
MAILSENTER, use MAIL*s main CTRL/C handler. 


BLS0200 Benn Schreiber 22-Dec-1982 
Remove need for MAIEDTINI by pessing SET AOSURMARY Line 
to EDT directly. 


BLS0199 Benn Schreiber 16-Dec-1982 
Use SYSSSYSTEM: MAIEDTINI. EDT a superese output file summary. 
Check if file exists and return SENDABORT if not 


BLS0196 Benn Schreiber 22-Nov-1982 
Turn on EDT journalling 
BLS0176 Benn Schreiber 18-Jun-1982 


Add callable EDT interface 
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MAILSEDIT EDIT OR ENTER A MESSAGE 19-300" 138% 99: i: 16 VAX=11 Bliss-32_ V4.0-742 
v04= 14-Sep-1 74 DISKSVMSMASTER: CMAIL.SRCJEDIT.B32;1 


; 159 03 1 MAIL$Q_CALEDTNAM : hte Name of editor if callable 
: 1e9 be : MAILSQ_USERNAME : SBBLOCK User's name 

: 16¢ 06 1 EXTERNAL ROUTINE 

s 16 07 #1 CLISDCL_PARSE, ' Parse command Line 

> 164 pe 1 CLISDISPATCH ' and qual fie on it 

: 165 0309 1 CLISGET VALUE, i Get qual ifier value 

> 166 0310 1 CLISPRESENT, ' Test ifier € peesent 
: 167 0311 1 LIBSGET_INPUT i Read = SYS$ 

: 168 0 19 1 LIBS$PUT~OUTPUT, i Write to SYSSOUTPUT 

: 169 0313 1 LIBSSPAQN, ! Spawn a subprocess 

: 170 0314 1 MAILSDECR_NEWMA ' Decrement new mail count 
: 171 0315 1 MAILSDISABLE_C TALE i Disable CTRL/C handl in 
: ve b318 1 MAILSEXTRACT “MESSAGE, ! Copy message text to file 
; 7 0317 1 MAILSGET_MSG, ' Read seq. mail record 
: 17% 0318 1 MAILSGET~1_MSG, i Read isam mail record 
3; 175 19 1 MAILSGETASG ' Get error message text 
: 176 0320 1 MAILSLOAD_ LBRSHR, i Load LBRSHR 

: 177 0321 1 MAILSNEW_ASG ! Test 4 new message 

: 178 03 : 1 MAIL$PUT OUTPUT, 

3 179 03 1 MAILSREWIND_1 MSG, ! Rewind isam mail msg 

: 180 0324 1 SMGSREAD_STRING, i Read string 

; «181 bas? 1 STRSCONCAT, ! string concatenation 

: iss 0326 1 th yh mes ! $tri mg cs co py routine 

> 0327 1 STRSFREET_D ' Free dynamic string 

> 184 0328 1 OTILSREPORG Xo. ERROR, i Report i/o error 

3 + #4 b3 , : , LIBSF IND_IMAGE~SYMBOL; ! Load image, find symbol val 
; 137 0351 Define local names for shared messages 

: 199 4 0338 i $SHR -MSGDEF (MAIL, L»126,LOCAL, 

: 191 P0335 1 (OPENIN ReEROR) 

; 198 P 0336 1 (OPENOUT ERGGRS 

> 19 P 0337 1 LOSEOUT ERRORS , 

: 19% P 0338 1 (FILNOTDEL, WARNING), 

3 13? B87p ! (WRITEERR, WARNING) ): 

: 197 0341 1 ! Table of symbol names 

i AB Lk 

: 200 0544 XYZ_HANDLER; 

; 0¢ 4 084g 1 MACRO EDISYMCEDTNAME) = 

: 03 a O37 1 PSECT = $OWNS; 

: 05 4 0349 OWN ZNAME("EDT_*,EDTNAME) : LONG; 

: 07 " O38 PSECT OWN = EDT_ADDRESSES (NOWRITE, EXECUTE); 

: 08 " 338 OWN ZNAME(EDTNAME,*_ADDR'): INITIAL (ZNAME("EDT_',EDTNAME)); 

: Hf 4 0385 PSECT OWN = EDT_NAMES (NOWRITE, EXECUTE); 

: ig 4 9 25 1 OWN ZNAME(EDTNAME) : VECTORC2 ot 

> 214 4 38 1 INITIAL (Z2CHARCOUNT CANARE (*EpTS" EDTNAME) ) 

; 215 m 0359 1 UPLIT(ZSTRING('EDTS' , XNAME (EDTNAME)))); 
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: $ es 5 GLOBAL ROUTINE MAILSLOAD_EDT = 

; 6% 04 ! FUNCTIONAL DESCRIPTION: 

: 266 0409 1 | Load EDT if it has not been loaded 

: 267 0410 1! 

: $88 bc12 2 BEGIN 

3 70 6218 

: 271 0414 2 LOCAL 

; te 0415 EDTINDEX; 

: 27h pig IF NOT .MAILSGL_FLAGSCMAIF_V CAL pT) 

3 a Bois THEN RETURN “SIGNAL (MAICS7N ALEDT); 

: 277 0420 2 IF .EDT_EDIT NEQ 0 

: 278 0421 THEN RETURN TRUE; 

: 279 04 3 

g 80 04 ! 

3 $B Be : Make sure LBRSHR is loaded first 

; seg P 0426 ir -ERR(MAILSLOAD LBRSHR();, 

> 284 0427 RETURN .STATUS); 

3; 285 0428 

: 286 0429 2 IF .MAILSGL_FLAGSCMAIF_V_EDTEDT] 

> 287 0430 3 THEN BEGIN 

: 288 0431 EDTINDEX = 0; 

3 289 0432 : WHILE sEDT_ ADDR_HEADC .EDTINDEX] NEQ 0 

: 291 P0434 4 IF _ERR(LIBSF IND_ IMAGE ~SYMBOL (SD EDTSHR,EDT_NAMES_HEADC.EDTINDEX*2], 
: 292 P0435 4 _ADBR_HEADE .EDTINDEXT);, 

: 29 0436 4 RETURN « STATUS) ; 

: 294 0437 4 EDTINDEX = .EDTINDEX + |; 

: 295 0438 3 END; 

; 296 0439 END . 

: 297 0440 3 ELSE BEGIN 

: 298 0441 3 STRSCONCAT (DYN_DESC,MAIL$Q_CALEDTNAM, SDESCRIPTOR('SHR")); 

; ¢9 0442 3 STRSCONCAT(DYN-DESC_2,MAILSQ_CALEDTNAM, SDESCRIPTOR( 'SEDIT')); 
; 300 P0443 3 IF_ERR(LIBSFIND_IMAGE Antsse DESC,DYN_DESC_2,EDT_EDIT);, 
3 301 0444 ; RET TORN STATUS); 

; 0@ 0445 IF .MAILSGL_FLAGSCMAIF_V_EDTXYZ 

; 30 P 0446 THEN IF ~ERRCLIBSF IRD TOAGE 23 VMBOL (DYN. DESC, SDESCRIPTOR(* TPUSHANDLER'), 
; 304 P 0447 X¥Z_HANDLER) ; , 
: 305 44 RETURN .STATUS); 

3; 306 44 END; 

: 307 0450 

: 308 0451 2 RETURN TRUE 

: 309 0452 1 END; 
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pr1986 12:42:19 DISKBUMSRASTER:CHAIL SRC 


-ADDRESS P.AAB 


N 
+ADDRESS P.AAF 
eASCII = \SYSSSCRATCH:MAIL.JOU\ 


-LONG 20 

“ADORESS, Fas RECOVER\<0><0><0> 
eASCII \EDTSM_NOJOURNAL \<0> 
ASCII \EDTSM_NOOUTPUT\<0><0> 
ASCII \EDTSM_NOCOMMAND\<0> 
-ASCII \EDTSM_NOCREATE\<0><0> 
ASCII \EDTSK_COMMAND_F ILE\<0><0> 
eASCII \EDTSK_INPUT_FILE\ 

eASCII \EDTSK_OPEN_INPUT\ 


-ASCII \EDTSK_GET\<0><0><0> 


ASCII \EDTSK— FL OSE\<0> 
eASCII \EDTS 

ASCII \EDTSEILEDO\<0><0> 
eASCII \EDTSHR\ 

-BLKB 2 

-LONG 6 

e-ADDRESS P.AAV 

eASCII \COMMAND\ 

“PONG 


LON 7 
-ADDRESS P.AAX 
eASCII = \CREATE\ 
BLKB 2 

-LONG 6 
-ADDRESS P.AAZ 
ty \INPUT\ 


RESS P.ABB 
I \JOURNAL\ 
“ADDRESS P.ABD 
ASCII \OUTPUT\ 

“CON G 
“ADDRESS P.ABF 
“ASCII \READ\ 


Pete Sete Be 
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MAILSEDIT EDIT OR ENTER A MESSAGE 16-Sep-1984 00:51:1 VAX-11 Bliss-32 V4.0-742 
v04=000 Ve-Sep=1984 12:42:17 — DESKSVMGMASTER EMAIL. she JEDIT.032;1 29° (36. 
00000099) Rize PABG: LONE csp. aan ; | 
52 45 56 GF 43 rk § 016 P.ABJ ASCII \RECOVER\ : 
90000007 0168 P.ABI: <LONG 7 ; 
0090000" 016C “ADDRESS P.ABJ : 
52 48 017 P.ABL: . scl \SHR\ : 
00000003 00174 P.ABK: [LONG 3 : 
00090090" 00178 “ADDRESS P.ABL : 
54 49 44 45 24 OQO17C P.ABN: ‘ASCII \SEDIT\ : 
00181 "BLKB 3 
00009005 00184 P.ABM: [LONG 5 : 
00000000" 00188 “ADDRESS P.ABN : 
52 45 4C 44 GE 41 48 26 55 50 54 0018¢ P.ABP: “ASCII \TPUSHANDLER\ : 
00000008 00198 P.ABO: <LONG 11 ; 
00600000' 0019¢ “ADDRESS P.ABP : 
.PSECT EDT_NAMES,NOWRT,2 
00000 EDT_NAMES HEAD : | 
0000000 00000 M_RECOVER: | 
00000000" 00004 -ADDRESS P.AAI : 
0000000F 00008 M_NOJOURNAL : a | 
00000000' 0000¢ ADDRESS P.AAJ : 
0000000E 00010 m -NOOUTPUT : nd 
00000000" 00014 “ADDRESS P.AAK : 
0000000F 00018 M_NOCOMMAND : - 
00000000" 0001¢ "ADDRESS P.AAL : | 
0000000E 00020 N_NOCREATE : a | 
00000000" 00024 “ADDRESS P.AAM : 
00000012 00028 K_COMMAND FILE: “ 
00000000' 9002¢ “ADDRESS P.AAN : 
00000010 00030 K_INPUT FILE: oe 
90000000" 00034 ADDRESS P.AAO : 
00000010 00038 K_OPEN INPUT: “a 
00000000" 0003c “ADDRESS P.AAP : | 
00000009 00040 K_GET: ‘LONG 9 : | 
00000000" 00044 "ADDRESS P.AAQ : 
90000008 0048 K_CLOSE:.LONG 11 : | 
00000000" 0004¢ "ADDRESS P.AAR : 
00000008 00050 EDIT: <LONG 8 : 
90000000" 00054 “ADDRESS P.AAS : 
9000 OOA 00058 FILEIO: :LONG 10 : 
00000000" 0005¢ "ADDRESS P.AAT : 
PSECT EDT_ADDRESSES,NOWRT,2 


] 
| 


00000000" 00018 K_INPUT HE tt 
DDRE ese. EDT _K_INPUT_FILE 3 
00000000" 0001C K_OPEN_ wiPUT ADDR 


DDRESS EDT. K_OPEN_INPUT : 
00000000" 00020 K_GET_A 
* ADDRESS EDT_K_GET : 
00000000" 00024 K_CLOSE_ADDR 


ADDRESS EDT_K_CLOSE : 
00000000" 00028 EDIT_ADDR 

ADDRESS EDT_EDIT : 
00000000" 0002C FILEIO_ADDR 

-ADDRESS EDT_FILEIO : 


00000000 00030 EDT_ADDR_END 
“LONG 0 : 


-PSECT SOWNS,NOEXE,2 
00000 COMNOSUM: 
-BLK 
00001 COMNOF ILE: 
-BLK 
00002 COMFILCNT: 
-BLK 


00003 “BLKB 
00# 00004 INPUT_DESC: 
BYTE 


02 O0£ 00006 "BYTE 


= ™— 
uw 
. 


or 
Nm 
. 


00008 
0O# 0000C 


“BLKB 
COMMAND _DESC: 
BYTE 
“BYTE 
“BLKB 
JOURNAL _DESC: 
BYTE 
“BYTE 
“BLKB 
OUTPUT_DESC: 
-BYTE 
“BYTE 
-BLKB 
XYZ_HANDLER: 
.BLKB 


on 
= ™— 
uw 


orm 
= ™ 
ro) 
~m 


» ™ 
=) 


Nm 


= £20 £0 F0 £0 —-— = = 
sm 
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MAILSEDIT EDIT OR ENTER A MESSAGE 1§- -Sep-1984 51: VAX=-11 Bliss=-32 V4.0-742 Page 9 
v04-000 14-Sep-1984 99:2 42:1 1 DISKSVMSMASTER: CMAIL.SRCJEDIT.B32:1 . (3). 
00000 EDT_ADDR HEAD: 
00000000" 00000 Mm RECOVER ADDR: 
DDRESS EDT_M_RECOVER ; 
00000000" 00004 ™ _NOJOURNAL ADDR: 
ADBRESS EDT_M_NOJOURNAL : 
00000000" 00008 m -NOOUTPUT ADDR: 
RESS EDT_M_NOOUTPUT : 
00000000" O000C Mm _NOCOMMAND A ADDR: 
ADBRESS EDT_M_NOCOMMAND : 
00000000" 00010 ™ _NOCREATE ADDR: 
-ABDRESS EDT _M_NOCREATE : 
00000000" 00014 Kk _ COMMAND babe ADDR 
RESS SEDI. K_ COMMAND _F ILE $ 


D 13 
haar DIT EDIT OR ENTER A MESSAGE 16-Sep-19 :51:1 VAX-11 Bliss-32 V4.0-742 Page 10 MA 
Hite itd 14- ety 7 99:2 3:15 DISKSVMSMASTER: CMAIL. SRCJEDIT.B32;1 . (3). vO 
00028 EDT_M -RECOVER: : : 
0002C EDT_M_NOJOURNAL : ; 
-BLKB 4 $ 
00030 EDT_M_NOOUTPUT: ; 
-BLKB 4&4 F 
00034 EDT_M -NOCOMMAND : ‘ : 
00038 EDT_M -NOCREATE: : : 
0003C EDT_K -COMRAND . FILE: : 
00040 EDT_K ~INPUT FILE: | : 
00044 EDT_K_OPEN INPUT : | ; 
00048 EDT_K GET: . 3 
0004C EDT_K “CLOSE: 3 
LK 4 | 3 
00050 EDT_EDIT: 
-BLK 4 
00054 EDT_FILEIO: 
-BLKB 4 
| 
DYN_DESC= JOURNAL _DESC 
DYN-DESC_2= COMMAND ~ DESC 
NL_BESC= P.AAA 
NO-FILE_DESC= P.AAC 
SYSIN DESC= P. AAE 
JOU_FILE_DESC= P. AAG | 
SD_EDTSHR= P. AAU 
SD" COMMAND= P. AAW 
SD" CREATE= P.AAY 
SD" INPUT= P.ABA 
$D~ JOURNAL= P.ABC 
SD“OUTPUT= P. ABE 
EAD= P.ABG 
SD-RECOVER= P.ABI 
XTRN CLIS$_NEGATED, CLI$_LOCNEG 
SEXTRN MAILSC_TMP_PRO, SMGS_EOF 
-EXTRN MAILSLIMYPID, MAILS$W-MSG_RSIZ | 
-EXTRN MAILS$L—MSG_RADR 
-EXTRN MAILSL“MSG_STS, MATLSGL_FLAGS 
“EXTRN MAILSSPA § 
-EXTRN MAILSL_SMG-KEYBOAR 
-EXTRN MAIL$Q_INPTRAN, MAILSO _EDITNAM_DESC 
~EXTRN MAltsan¢ ALEDTNAM 
-EXTRN MAILSQ~USERNAME 
/EXTRN CLISDCC_PARSE, CLISDISPATCH 
.EXTRN CLISGET “VALUE. CLISPRESENT 
-EXTRN LIBSGET~INPU CIBSPUT OUTPUT 
-EXTRN LIBSSPAQN MusoEeR _NEWMAIL 
“EXTRN MAILSDISABLE_CTRLC 
.EXTRN MAIL SEXTRAC I MESSAGE 
.EXTRN MAILS$GET MSG; yMAlLSGET I MSG 
-EXTRN MAILSGETASG, MAILSLOAD~ TSRSER 


742 


_10_ERROR 


-32 v4.0 
_GUTPUT 
EPORT 
_ SYMBOL 


DISKSVMSMASTER: CMAIL-SRCJEDIT.832; 1 


NEW 


MAILS$PUT 


G 
UTILS$R 


Q 
STRSCOPY Dx 


6E 


i 
-PSECT SCODES,NOWRT,2 


-11 Blis 
ns 
STRI 

RT 

EE1_Bx 

MA 


T 


VAX 

REW! 

EAD 
NC 
ND 
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177 bytes, Routine Base: S$CODE$S + 01A0 


; Routine Size: 


EDIT OR ENTER A MESSAGE 


13 
MAILSEDIT 18-Sep-1984 00:24:16 VAX=11 Bliss-32 V4.0-742 
v04- 14-Sep-1984 12:42:1 DISKSVMSMASTER:CMAIL.SRCJEDIT.B32; 1° 


§ 1} ott } ROUT INE CHECK_MESSAGE_FILE(OUT_DESC) = 

; 1§ te 1 FUNCTIONAL DESCRIPTION: 

° » F 

3 15 439 1! This routine determines whether the specified file was successfully 
; 18 Bees : created and returns success if it was, and MAIL$_SENDABORT if not 
; 18 0460 1 ! INPUTS: 

; «#319 0461 1! 

; 320 bee¢ 1! OUT_DESC is a descriptor for the file to check 
: 321 0465 1 !-- 

3 $§ 0464 BEGIN 

s 0465 

; 324 0466 S 

3 25 0467 OUT_DESC : REF S$BBLOCK; 

3 $58 0468 2 

g Ser 0469 LOCAL 

; 328 0470 FAB : $FAB_DECL, 

3 Sey 0471 NAM: $ ECL, 

3 3350 047 NAMESS : SBBLOCKCNAMSC_MAXRSS], 

3 SSI 0473 2 STATUS; 

3 Sse 0474 § 

ca P 0475 SFAB_ cay b~Sayg FAB, 

3s 33 P 0476 2 FNS=.OUT_DESCCDSC$W_LENGTH] 

: 335 P0477 2 FNA=.OUT~DESCLDSCS$A_POINTERS, 

: 336 0478 2 NAM=NAM) ; 

3 tH 0479 2 

: 338 P 0480 2 SNAM_INIT(NAM=NAM, 

; 339 P 0481 2 ESS=NAM$C *MAXRSS, 

: 340 P 0482 2 ESA=NAM 

3; «341 P 048 2 RSS=NAMSC MAXRSS, 

; 342 0484 2 RSA=NAMESS); 

: 343 0485 2! 

3 344 0486 2 ' If the PARSE or SEARCH fails, then return SENDABORT, otherwise return 
>; 345 0487 2! success 

; 346 0488 ¢ i 

:; 347 0489 if NOT SPARSE (F AB=F AB) 

; 348 0490 3 OR NOT $SEARCH(F AB=F AB) 

; 349 0491 2 THEN RETURN MAIL$_SFNDABORT 

s 350 0492 2 ELSE RETURN TRUE ~ 

3 351 0493 2 

3 532 0494 1 END; 


~-EXTRN SYS$PARSE, SYSSSEARCH 


003C 00000 CHECK_MESSAGE_FILE: 
WORD sexs 82 Re R3,R4,R5 


ROvAB . SP 
#0, fag #0, #80, SRMS_PTR 


MOV 9048 SRMS_PTR 
MOVB , $RMS _PTR¥22 
MOVB , RMS PTR+51 


MOVAB NAA, RMS _PTR+40 
MOVL OUT “peee, “RO 


EDIT OR ENTER A MESSAGE 


or, 


o@mo vo vV°TTOo mo”VU 


VwSCO OO MOQONO 
VOOM OM"OOOOoW wovo 


SOLOCOM™™OWMMMMo MOO 


COOCoooQoOoQOQooQoooooooo 


“ 
oO 
pope fe fel olofololelelelelelelolelelelq) 


COOCOCCOCOCOOOCOOOOOOCCOO 


o 


SCODES + 0251 


; Routine Size: 


R+52 
#0, (SP), RO, #96, SRMS_PTR 
#24578, sie 


NAA $RMS_PTR 
AMESS, SAAS PTR+4 
SRMS_PTRF10 


NAMES, SRMS _PTR+12 
#1, SYSSPARSE 
RO, 1$ 


#1, SYS$SEARCH 
RO. 2$ 
#8290394, RO 
#1, RO 


Z}:16 VAX-11 Bliss-32 V4.0-742 

21 DISKSVMSMASTER: (MAIL. SRCJEDIT.B32;1 
4(RO), SRMS_PTR+44 

(RO), *SRMS PTR 


13 

MAILSEDIT EDIT OR ENTER A MESSAGE 1h-Sep-1986 00:51:12 VAX#11 BLiss-32 v4.0-762 Page 15. 

v04= ets TR ee Me Vee HS eae en re 
: 354 495 1 ROUTINE SEND_STRING (DESC) = | 
: $22 487 1 1 FUNCTIONAL DESCRIPTION 
; 2% O36 i Writ tri t ane 
Py H rite strin ie} Py 
359 500 1 ° | : 
: 360 01 1 ine | ; 
: 361 502 2 BEGIN | : 
: 3% 0504 § LIBSPUT_OUTPUT(.DESC): | 
36a 0508 5 RETURN O | ; 
i 365 0506 1 END: | 
| : 

| 

0000 00000 SEND. STRING: | 

WOR Save nothing 3: 0495 

04 AC pp 90002 BUSHL DESC : 0504 

000000006 00 01 FB 9000 CALLS #1, LIBSPUT_OUTPUT 
0 p4& 0000¢ CLARE. RO ? 0505 
04 0000E RET : 0506 


; Routine Size: 15 bytes, Routine Base: $CODE$ + 02CD 


SS --y 


J 13 
MAILSEDIT EDIT OR ENTER A MESSAGE 16-Sep-1984 00:51:1 VAX=11 Bliss- 32 v4.0-742 Page 16. 
v04- 1278087138 90:23 1$ DISKSVMSMASTER: CMAIL. SRCJEDIT.B32;1 . (6). 
; 07 ROUTINE EDT_HANDLER (SIGARG, MECHARG) = 
: 03 1 | FUNCTIONAL DESCRIPTION: | 
; 0511 1! Handler to handle EDT apignalled errors. Prevents EDT's fatal 
; b21§ 1! errors from exiting MAIL 
: 0514 BEGIN 
; 0515 
; 0316 P SIGA RG : REF $BBLOCK, 
; ba MECHARG : REF $BBLOCK; 
: §a19 BUILTIN | 
: 0520 CALLG,AP; 
3 0521 | 
: 05 é BIND 
3 Be ; SIGNAME = SIGARGCCHFSL_SIG_NAME] : S$BBLOCK; | 
; 0525 IF .SIGNAME EQL SS$_UNWIND | 
; 09 $ j THEN RETURN SS$_CONTINUE; 
: 0528 2 IF .MAILSGL_FLAGSCMAIF_V_EDTXYZ) 
3 3 , THEN RETURN CALLG(7AP,.XYZ_HANDLER); 
: 0531 IF NOT .SIGNAME | 
; 03¢ THEN BEGIN 
: 053 SIGARGCCHFS$L_SIG_ARGS] = ; SIGARGECHESL_ SIG_ARGS] - 2; 
3 P 0534 SPUTMSG(MSGVEC= STGARGL CCHFSL_SIG A ARGS), ” 
: 0535 ACTRIN = SEND tre RIN 
; 0536 SIGARGCCHE SL S1G_ ARGS} = =B1GaRGC EMF st SIG_ARGS] + 2; 
$ Baef IGNAMECSTSSO_ SEVERITY] = STSSK_WARNING; 
: 399 0539 $ 
: 400 0540 § SETUNWIND(); | 
> 401 0541 RETURN 0 
; 402 0542 1 END; 
.EXTRN SYSSPUTMSG 
0004 00000 EDT_HANDLER: 
.WORD Sav ; 0507 | 
2 06 Ac 04 C1 90002 ADDL a, i R2 ; 0933 | 
00000920 =&F 62 D1 0000 CMPL é > 0525 | 
04 i 0000E BNEQ : 
50 01 OD 90019 MOVL , RO : 0526 
04 9901 RET : 
0B 000000006 00 01 £1 00014 1$: BBC MAILSGL _FLAGS+2, 28 : 0528 
51 00000000" 00 0b0 O1¢ MOVL rv HANDLER, R1 : 0529 
61 6C FA 09 CALLG (APJ, (R1) ; 
04 $ ET : 
1A 62 eg 2s: BLBS 3$ : 0531 
04 BC 9 ‘ A SUBL2 ihe Se TEARG > 05 3 
— 7C CLRO. 0. = (§P) : 05 
BE AF 9F 000 PUSHAB SEND STRING : 
04 AC 0D 000 PUSHL SIGARG : 


3 


EDIT OR ENTER A MESSAGE WERe0-1984 Q9:EL:13  WNLTABALgCH2L 


wouscunye BC is ae. asicane 
000000006 00 05 


=(SP) 
#2, SYSSUNWIND 
RO 


; Routine Size: 80 bytes, Routine Base: S$CODE$S + 020C 


4.0-74 
MAIL. SREJEDIT .832:1 


roe 


; Routine Size: 38 bytes, Routine Base: $CODE$ + 032C 


13 
MAILSEDIT EDIT OR ENTER A MESSAGE 16-Se 1984 00:51:1 VAX-11 8B 
v04-000 14-Sep-19 4 902019 DISKSVMS 
; 404 0543 1 ROUTINE EDT_HANDLER_2 (SIGARG, MECHARG) = 
; 405 Bete 1 !+ 
; $38 B26? ’ | FUNCTIONAL DESCRIPTION: 
: 408 eed 1! Handler to handle EDT signalled errors. Prevents EDT's fatal 
$ re bees ! errors from exiting MAIL. This handler does not print the message. 
> 411 beee BEGIN . 
3 tig 551 MAP 
> 41 6226 SIGARG : REF SBBLOCK, 
> 414 055 MECHARG : REF S$BBLOCK; 
: 415 bee 
> 416 555 BIND 
: ht b228 SIGNAME = SIGARGCCHFSL_SIG_NAME] : $BBLOCK; 
; 419 0558 IF .SIGNAME EQL SS$_UNWIND 
; 420 0559 THEN RETURN SS$_CONTINUE; 
3 $s! 0560 
; 4 ¢ 0561 IF NOT .SIGNAM 
: re B26 THEN STGNAMECSTSSV. SEVERITY] = STSSK_WARNING; 
> 425 0564 § SETUNMIND(); 
: 426 0565 RETURN 0 
3 627 0566 1 EN oe 
0000 00000 EDT_HANDLER 2: 
-WORD Save nothing 
50 04 AC 04 C1 00002 ADDL3 #4, SIGARG, RO 
00000920 8F 60 D1 00007 CMPL = (RO) ,- #2336 
04 12 OO000E BNEQ 3 
50 01 00 00010 MOVL » RO 
04 00013 RET 
03 60 £8 00014 1$: BLBS (RO), 2$ 
60 07 8A 00017 BICB2 #7, (RO) 
7E 7C QOO1A 2$: CLRQ -(SP) 
000000006 00 02 FB eo CALLS #2, SYSSUNWIND 
50 D4 0002 CLRL RO 
04 00025 RET 


-0-742 Page 
L.SRC 


-— 


13 
MAILSEDIT EDIT OR ENTER A MESSAGE sep- 138% 99:2) 6 VAX-11 AALS 32 v4.0- 
v04-000 -$ep-1984 12:42:1 DISKSVMSMASTER: CMAIL.SRCJEDIT.B32;1 
> 429 0567 1 ROUTINE CALL_EDT_FILEIO = 
; 430 bees 1 !¢ 
: : 1 8268 ! } FUNCTIONAL DESCRIPTION: 
; & i oors 6 a Calls EDTSFILEIO. If attempting to open the user's EDTINI, enable 
: 434 O278 . 3 a condition handler so that the caller of this routine can get control 
> 435 0575 1! back. 
>; 436 0574 1! 
: 437 0575 BEGIN 
; 438 0576 
: ta6 0878 5 eG 
; 441 base AP, 
> 44 0580 FP; 
> 44 0581 
> 444 pae¢ : 
> 445 0583 2! We only care about user's EDTINI not being found. Let SIGNAL of FNF 
: 446 0584 g i on system EDTINI go through to EDT. 
> 447 0585 i 
; 448 0586 2 IF Come IL Cu EQL 1 
: 449 0587 2 THEN .FP = EDT_HANDLER_2; 
; 450 0588 2 
3: «451 0589 2 RETURN CALLG(.AP,.EDT_FILEIO) 
: 452 0590 1 END; 


0000 00000 CALL_EDT_FILEIO: 
WORD Save steering, 


01 00000000' 00 91 00002 CMPB ss COMF-ILCNT 
04 12 00009 BNEQ  1$ 
6D CC AF «9E 00008 MOVAB EDT “HANDLER 2, (FP) 
51 00000000" 00 00 OO0OF 1$: MOVL  EDT-FILEIO, “Ri 
61 6C FA 00016 ALLG (APS, (R1)- 
04 00019 ET 


; Routine Size: 26 bytes, Routine Base: S$CODE$S + 0352 


Be Se Be Se Be Se Se Se Be Se Se Se Se Ge Ge Se Se Ge Se Fe Ge Fe Se Se Se Se Ge Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se ee te teas 


MAILSEDIT 


EDIT OR ENTER A MESSAGE 1b-$9p"1986 00:51:12 VAX=11 BLiss=32_v4.0-742 Page 20 
vOa-o ep-1986 19: ame 


14-Sep-1984 12:42:1 DISKSVMSMASTER: CMAIL.SRCJEDIT.B32;1 


; t2e 089 } ROUTINE MAILSEDT_FILEIO(FILE_CODE,FILE_STREAM,RECORD_DESC,RHB_DESC) = 

; 128 0398 } } FUNCTIONAL DESCRIPTION: 

; 458 0595 1! This routine is called by EDT for all fileio. It passes on most 

; 459 b239 1! calls, except for two special cases. For the second call to open 

: 460 0597 1! the command 
: 461 B2e6 1! 

; 46 599 1 !<= 
; 46 0600 § BEGIN 

; 464 0601 

: 465 Bene BUILTIN 

; 466 060 AP, 

: 467 0604 CALLG; 

: 468 0605 

: 469 0606 § MAP 

: 470 0607 FILE =fODE : ar ey clone YTE] ‘Assume codes are all bytes 

; 471 0608 2 FILE-STREAM : VECTO ORE BYTE], i and stream numbers 

3: 472 0609 2 RECORD_DESC : LOC 

3 473 0610 RHB OOESe : REF $BBLOCK; 

3: 474 0611 

: 475 Belg LOCAL 

> 476 0613 2 STATUS; 

: 477 0614 2 

: 478 0615 ! : ; 
3 rth bers H If opening the main input file, set the default file type of .TXT 

3 ! 
: 481 0618 IF “PILE e iy ws FOL eEDT_K_INPUT_FILE 
: 482 0619 FILE_CODECO] EQL .EDT_K_OPEN_INPUT | 
: 483 0620 THEN BEGIN 

> 486 0621 ; STRSCOPY_DX(.RHB_DESC,SDESCRIPTOR('.TXT')); 

; 485 bes§ RETURN CALLG(. AP, .EDT_FILEIO); 

: 486 0623 2 END; | 
: 487 0624 ! | 
3 rt bese : Everything except command file i/o, call EDTSFILEIO | 
HY 0627 it -FILE_STREAMCO] NEQ .EDT_K Tne FILE 

3; 491 0628 THEN ie CALLG(.AP, .EDT_ FICE1O 
mo. Re eee | 
: rhe bes! 3 i If opening the command file, set flags and call special routine | 
> 496 $638 : IF_ FILE CODECO] EQL .EDT_K_OPEN_INPUT | 
: 497 b638 4 THEN BEGIN 
: 498 0635 4 Sorte 

: 499 0636 4 COMNO = °%. 

; 200 0637 4 CONF ILCHT = .COMFILCNT + 1; ‘Count the edtini | 
: 206 0639 4 This call will not return if there is a failure opening the | 
; 0640 4 1 SYSTEM-wide EDTINI, but will return if there is a failure 
: 20e Re6} ? opening the user's “EDTINI 

; 306 o64s STATUS = CALLG(.AP,CALL_EDT_FILEIO); | 
s SO 644 4 IF .COMFILCNT EQL f 'If opening user's edtini | 
; 508 645 5 THEN BEGIN 
3; 509 646 5 COMNOSUM = 1; if beg need to output SET NOSUMMARY 
; 510 0647 5 IF NOT .STATUS 'If file not there, pretend it was 


; 
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VIMY 
fw 


pte | 
DIT EDIT OR ENTER A MESSAGE mt tb :51:1 VAX-11 Bliss-32 V4.0-742 Page ¢ 
0 -Sep-1984 242:1 DISKSVMSMASTER: CMAIL.SRCJEDIT.832;1 (9) 
0648 5 THEN COMNOFILE = STATUS = 1;!Return ok so EDT will do a GET 
0649 4 END; 
0650 4 RETURN .STATUS 
0651 4 END 
$626 4 ELSE BEGIN 
655 4 ! 
peed : a code of other than OPEN_INPUT... 
0656 4 IF .FILE_CODECOJ] EQL .EDT_K_GET 
poet 2 THEN BEGIN aan 
$84 2 If we need to send the SET NOSUMMARY Line, do it, and clear flag 
0661 5 IF .COMNOSUM 
0662 6 THEN BEGIN 
066 6 STRSCOPY =DX¢, RECORD_DESC,$DESCRIPTOR('"SET NOSUMMARY')); 
0664 6 COMNOSUM™= 0: 
0665 6 Rerun N 1; 
0666 5 
0667 5 IF COMMOF ILE 'If there was no file, return eof now 
0668 5 THEN RETURN RMS$_EOF 
B68? 2 ELSE RETURN PALE GT AP,.EDT_FILEIO); !Otherwise, just get record 
0671 4 IF FILE. cope C0] fat -EDT_K_CLOSE 
0672 4 AND .COMN 
0673 4 THEN RETURN ‘* ‘If closing non-ex file, pretend ok 
bere 3 ——— RETURN CALLG(.AP,.EDT_FILEIO); 'EDT will close real file 
0676 2 END; 
0677 1 END; 
54 58 54 2E 0036C P.ABR eASCII \.TXTN : 
00000004 00370 P.ABQ: .LONG 4 : 
00000000" 00374 ADDRESS P.ABR ; 
59 52 41 4D 4D 55 53 4F 4E 20 54 45 53 poare P.ABT my wae NOSUMMARY\ : 
0000000D 00388 P.ABS: .LONG 13 3 
00000000" 0038C “ADDRESS P.ABT 3 
001C 00000 MAILSEDT_FILEIO: 
~WORD Save R2,R3,R4 3; 0591 
54 00000000G 00 9E 00002 MOVAB eee! DX, R4 ; 
53 D4 AF 9E 00009 MOVAB’ P.AB 3 
52 00000000" 00 9 BR R00 MOVAB cOANSU 3 
40 A2 08 BC 08 00 ED 00014 CMPZV #0, #8, me Re STREAM, EDT_K_INPUT_FILE ; 0618 
13° 12 00018 BNEQ 1$ 3 
44 A2 04 BC 08 00 ED 00010 CMPZV +f #8, @FILE_CODE, EDT_K_OPEN_INPUT 3 ite 
OA 12 00024 BNEQ 1$ 3 
53 DD 00026 PUSHL R3 : 0621 | 
10 AC DD 00028 PUSHL RHB_DESC ; 
64 02 FB 00028 CALLS #2, STRSCOPY_DX : | 
66 11 0002E BRB 6$ 3 0686 | 
3C A 08 BC 08 00 ED 00030 18: CMPZV #0, #8, @FILE_STREAM, EDT_K_COMMAND FILE  ; 062 


14 
MAILSEDIT EDIT OR ENTER A MESSAGE 1§- -Sep-198 8 :51: VAX-11 Bliss-32 V4.0-742 Page 22. MA] 
v04-000 14- ~3ep-19 84 90:23 :42 18 DISKSVMSMASTER: [MA IL.SRCJEDIT.B32;1 . R: voé 
5D 12 00037 BNEQ 6$ : ; 
44 A2 046 BC 08 00 ED 00039 CMPZV #0, #8, AFILE_CODE, EDT_K_OPEN_INPUT + 0633. : 
1E 12 00040 BNEQ 2$ : : 
6 B4 0042 CLRW COMNOSUM 3 0635. ; 
02 A2 96 00044 INCB COMF ILCNT 3 0637. ; 
FF76 CF 6C FA 90047 CALLG ¢AP) ALL -£DT _FILEIO : 0643. ; 
01 02 A2 91 0004C CHEB COME MF ILCN > 0644 | ; 
4B 12 00050 BNEQ : ; 
62 g1 90 90052 MOVB #1, COMNOSUM : 0646 : 
4 0 €8 0005 BLBS STATUS, 7$ + 0647 ; 
50 01 DO 00058 MOVL #1, STATUS : 0648 : 
01 A2 01 90 90038 MOVB #1, COMNOFILE : : 
04 0005F RET : 0652 : 
48 A2 06 BC 08 00 ED 00060 2$ CMP? #0, #8, AFILE_CODE, EDT_K_GET : 0656 : 
1¢ 12 00067 BNEQ : : 
0D 62 £9 60069 BLBC COMNOSUM, 3$ ; 0661 : 
18 A3 SF 0006C PUSHAB ; 0663 | : 
OC AC DD 0006F PUSHL RECOR DESC : : 
64 02 FB 00072 CALLS He. “StRscOPY _DX : : 
62 94 00075 CLRB 3 0664 
19 11 00077 BRB sgn > 0665 | 
19 01 A2 €9 00079 3$ BLat COMNOF ILE 3 0667 
50 0001827A 8F 00 0007D MOVL og hs + 0669 
04 00084 RET : 
4C A2 04 BC 08 00 ED 00085 4$ CMPZV #0, #8, @FILE_CODE, EDT_K_CLOSE ; 0671 
08 12 0008C BNEQ $ ; | 
04 01 A2 €9 OOOBE BLBC COMNOFILE, 6$ : 0672) 
50 01 DO 00092 5$ MOVL #1, RO + 0674 | 
04 0009 RET ; | 
51 54 A2 DO 00096 6$: MOVL EDT_FILEIO, R1 : 
61 6C FA OOO9A CALLG (APY, (R1) : 
04 0009D 7$: RET ; 0677) 


; Routine Size: 158 bytes, Routine Base: $CODE$S + 0390 | 


D 14 
+t 23 Sal EDIT OR ENTER A MESSAGE 19=300-138% 90:34:16 VAX=11 Bliss-32 V4. 
04-000 14-Sep-1984 12:42:1 DISKSVMSMASTER:CMAI 


: 54 0678 1 ROUTINE EDT_XLATE (C_DESC) = 

3 2 0679 1 !44 

; 544 0680 1 | FUNCTIONAL DESCRIPTION: 

; ate beg P the XLATE d. Specifically, SPAWN and ATTACH 
Py ; rocess e command. ecifica ° an 
: 308 Seas 1 , . 

: 548 0684 1 !-- 

3; 549 0685 § BEGIN 

: 550 0686 MA 

: 551 0687 2 C_DESC : REF $BBLOCK; 

3; toe 0688 2 

5 tao +494 § ENABLE EDT_HANDLER_2; 

3 356 690 

3 555 0691 2 IF CLISDCL_PARSE(.C_DESC,MAILSSPAWN_CMDS,LIBS$GET_INPUT) 

: 556 0692 2 THEN CCISDISPATCH(); 

; 557 0693 2 

; 558 0694 2 STRSFREE1_DX(.C_DESC); 

; 559 0695 2 

; 560 0696 2 RETURN TRUE 

; 561 0697 1 END; 


0000 00000 EDT_XLATE: 
DE 00002 HOVAL 28, (FP é 


OO2F CF 
000000006 00 9F 00007 PUSHAB LIBS$GE PUT 
000000006 00 9F 0000D PUSHAB MAILSSPRUN. CMDS 
04 AC DD 00013 PUSHL C_DESC 
000000006 00 03 FB 00016 CALLS #3, CLISDCL_PARSE 
07 50 €9 0001D C RO, 1$ 
00000000G 00 00 FB p8gs9 CALLS #0, CLISDISPATCH 
04 AC DD 00027 1$: PUSHL C_DESC 
000000006 00 01 FB pode CALLS #T, STRSFREE1_DXx 
50 01 DO 00031 MOVL #1, RO 
04 00034 RET ; 
0000 00035 2$: «WORD Save nothing 
7E D4 00037 CLRL -(SP) 
5E bp 00039 PUSHL SP 
7E 04 AC 7D 00038 MOVa 4(AP), = 
FEBA CF 03 FB 0003F CALLS #3, EDT_HANDLER_2 
04 00044 RET 


; Routine Size: 69 bytes, Routine Base: S$CODE$S + 042E 


IL. 


-742 
SRC 


JEDIT.B32;1 


rae if 


<= 
Oo 
~ 
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MAILSEDIT EDIT OR ENTER A MESSAGE 16-Sep-1984 0 51:18 VAX=11 Bliss-32 V4.0-742 Page 24 MA] 


v04-000 14-Sep-19 DISKSVMSMASTER:CMAIL.SRCJEDIT.B32;1 (11) 


< 
2 


: 563 0698 1 GLOBAL ROUTINE MAILSEDIT(IN_NAME,OUT_NAME) = | : 
> 564 0699 1 : 
; 565 0700 1 !++4 | : 
: 566 0701 1 ! FUNCTIONAL DESCRIPTION: , 
: 367 O78 1} ; ( : 
; 568 0705 1! This routine is called to enter and edit a mail message. ‘ 
: 569 0704 1! : 
; 570 0705 1 ! INPUTS: ; 
; 571 0706 1! ; 
; 276 0707 1! IN_NAME = Address of input file name descriptor. : 
3; ST 0708 1! OUT_NAME = Address of output file name descriptor. ‘ 
> 574 B00 1! ; 
: 575 710 1 ' OUTPUTS: | ; 
; 37 0711 1! : 
3; ore orig 1! Message copied to file OUT_NAME. ; 
; of 0713 1! : 
: 579 0714 1 i-- | ; 
; 580 0715 § BEGIN ; 
3 Se) 0716 MAP ; 
3 6(38e 0717 2 IN NAME: REF BLOCKC,BYTE] ! Input file desc ; 
; 583 0718 2 OUT_NAME: REF BLOCKC, BYTES; i Qutput file desc : 
; 584 0719 2 

; 585 0720 2 BUILTIN 

; 586 0721 2 AP, 

: 587 Oss 2 CALLG; 

>; 588 0723 2 

; 589 0724 2 LOCAL ; 

3 390 0725 2 STATUS, ! Routine status 

3; 39) 0726 2 FILEIO_BPV : VECTOR(C2,LONG], 

s oe 0727 2 XLATE 6PV : VECTORC2,LONG), : 

: 299 0728 2 EDITCAD_BUF : BLOCK(255, BYTE], ! Edit command buffer 

; a3e 6580 § EDITCMD_DESC: BLOCKC8,BYTE); ! Edit command desc 

; 596 0731 2 MAILSDISABLE_CTRLC(); | 

; 597 0732 2! q 

: 598 0733 2! If callable EDT requested then call EDT, otherwise create the 

; 599 0734 2 ! editor subprocess. 

; 600 0735 2! | 

; 601 0736 é IF_.MAILSGL_FLAGSCMAIF_V_CALEDT) 

; 602 0737 THEN BEGIN 

: 603 P 0738 3 IF _ERR(MAILSLOAD_EDT();, 

3: 604 0739 3 RETURN .STA ; 

; 605 0740 3 IF .MAILSGL_FLAGSCMAIF_V_EDTEDT) 

; 606 0741 4 THEN BEGIN 

; 607 oes 4 FILEIO_BPV 9 = MAILSEDT_FILEIO; 

: 608 0743 4 FILEIO BPYL1) = 0; 

; 609 0744 4 KLATE Bev y= EDT _XLATE: 

: 610 0745 4 XLATE BPV([1) = 0; 

: 611 0746 4 COMFICCNT = -1; 

: 612 0747 6 IF NOT (STATUS=(.EDT_EDIT)(CIF .IN_NAMECDSC$W_LENGTH] EQL 0 

s $615 0748 6 HEN NL_DESC 

3: 614 0749 5 ELSE .IR_NAME), 

3; 615 0750 5 .OUT_NAME ,NO_FILE DESC, JOU_FILE_DESC, 

> 616 0751 5 ZREFTO) ,FILETO_BPV,0,XLATEBPV)) 

3 617 O75¢ 4 THEN RETURN .STATUS; 

; 618 0755 4 

s 619 0754 4 ELSE IF NOT (STATUS = CALLG(.AP,.EDT_EDIT)) 


MAILSEDIT EDIT OR ENTER A MESSAGE 
04-000 


V 


: 620 0755 

: 853 Bras 8 cise BEGIN’ 
Beeld 8 eee ee 
3 rea 
: 625 760 i 

: 656 0761 EDITCMD. 
: 6? 0762 EDITCMD 

: 658 P 076 $FAOC 

: 659 P 076% 

: 680 P 0765 

: 651 P 0766 

. © ; P 0767 

; és p O768 3 

634 P 0769 

: 35 0770 3 

636 P0771 3 IF _ERR( 
: 637 0772 § 

638 0773 2 END; 

: 639 0774 5 RETURN CHECK_ME 
: 640 0775 1 END: 


21 22 20 22 53 41 21 22 20 53 


4C 49 41 4D 3A 4D 45 


000000006 


F8 
FO 
00000000" 


F 14 
19-300" 138% 00:24:16 VAX=11 Bliss-32_ V4.0-742 
14-Sep-1984 12:42:1 DISKSVMSMASTER: CMAIL.SRCJEDIT.B832;1 


THEN RETURN .STATUS; 


e and execute the command procedure execution command. 


0,0 2 
DscSA A POINTERS, = EDIT.CMD 
IPTORT'$ @!AS "IAS" "IAS 


nD Descepscse LENGTH), 


* 
MATLSGL =ELAGSCHALE V_USERED 
THEN MAIL$Q_EDI TNAM DESC 


BUF ; 
"? 


° 


IT] 


Zs amgEtse DESCRIPFOR( “SYS TEM:MAILEDIT.COM')), 
“OU TN Nané) ; 
LIGSSPAUNTEBITCMD DESC) 
SIGNAL (MAIL$_EDITPROC, 6° status)): 
SSAGE_FILE(.OUT_NAME) 
41 21 40 20 24 00473 P.ABV: .ASCII \$ @!AS ‘IAS’ “HAS 
22 53 41 00482 
00485 .BLKB 3 
00000012 00488 P.ABU: ‘LONG 18 
00000000" 0048¢ ;ADDRESS P.ABV 
53 24 53 59 53 00490 P.ABX:  <ASCII \SYSSSYSTEM:MAILEDIT.COM\ 
2—E 54 49 44 45 0049F 
004A7 .BLKB 1 
00000017 004A8 P.ABW: ‘LONG 23 
00000000" 004aCc “ADDRESS P.ABX 
.EXTRN SYSSFAO 
001¢ 00000 ENTRY MAILSEDIT , Save R2,R3,R4 
54 000000006 00 9€ 00002 MOVAB MAILS$GL_FLAGS, R4 
53 FCE3 CF 9€ 00009 MOVAB RAILSLORD EDT. R 
5E FEES CE 9€ 00005 MOVAB (SP) 
00 00 FB 0001 CALLS #0, MAIL$DISABLE_CTRLC 
01 Ad 95 OOOIA TSTB = MAILSGL_FLAGS+1 ~ 
6D 18 99010 BGEQ 
63 00 FB OO1F CALLS #0, MAILSLOAD_EDT 
01 50 E 900¢8 BLBS STATUS, 1$ 
4 000 T 
52 00000000" 00 00 900 6 1$: MOVL  EDT_EDIT, R2 
4E 02 A E9 002D BLBC MAICS$GL_FLAGS+2, 4$ 
AD 01FO }§86C3 «SE 00031 MOVAB MAILSEDT FILeL0, FILE1O_BPV 
FC AD D4 00037 CLRL FILELO BPy 
AD O28E C3 9E OO03A MOVAB XLATE *NLATE _BPV 
F4 «OAD OG 0040 CLRL KLATE BP V+4 
00 01 BE 904 MNEGR of Come IL cwt 
FO AD 9F OOO4A PUSHAB XL pArE 
7E 04 0004D CLRL 
F8 AD OF O004F PUSHAB FIeE1O. BPV 
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; Routine Size: 


rN VN 
mmm OT ——fv 


vw 
o Of 


C3 


Routine Base: 


SOPFOONVWWMOOF OOP PVinnOcoc‘eorFrrO VNWMFOVMOPOUMODPOO,Yr>r 
[AWW TFMOO—MOMMMOMNOMOM™N —DOlMO—CWBOMWOTOOO NAMM 
ORNS NOVIIMMONNOOOI O— OM VOWOUMT Mono —-00O-—-"DO ovo 
Fwoeo £000 "BW" ssOMm—mMm—-OM Py FOMWOYr —-WOWTdo Somuncs sor 
SOOO OCOOCOOCOOOOOCOCOOCOOOOCOOOCOOOOOOOOOOOOOOOOOO 


ooooooooooocooo 


SCODES + 0480 


Ss, 9$ 
(AP), (R2) 
Rd, STATUS 
STATUS, RO 


#255, EDITCMD DESC 
EDITCMD_BUF, EDITCMD_DESC+4 


N_NAME; 
#5, MAILSGL_FLAGS+1, 7$ 
MAILSQ_EDITRAM_DESC. RO 


P.ABW, RO 
RO 


EDITCMD_DESC 
EDITCMD_DESC 


P.AB 
#6, SYSSFAO 

EDITCMD DESC 

#1, LIBSSPAWN 

STATUS, 9$ 

=( 

#8290402 

#3, LIBSSIGNAL 

OUT _NAM 

#1,” CHECK_MESSAGE_F ILE 


. 
e 
. 
e 
. 
Ld 
. 
o 
. 
. 
7 
e 
7 
. 
© 
° 
. 
a 
° 
2 
. 
o 
. 
6 
o 
o 
. 
o 
. 
o 
° 
o 
° 
o 
. 
. 
+ 
e 
. 
i 
. 
. 
. 
2 
. 
e 
7 
e 
. 
e 
. 
° 
© 
o 


WN Oo OONO 


COCoOCOCO 


VIAMAAMMIUI VIL 
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ENTER A MESSAGE 


_ ROUTINE MAILSENTER(OUT_RAB) 
FUNCTIONAL DESCRIPTION: 


i 
1 
| INPUTS: 
1 

i 

i OUTPUTS: 


BEGIN 

MAP 

OUT_RAB: REF BLOCKL,BYTE); 
DESC: BLOCK(B,BYTEI, 


LOCAL 


IF ae. FLAGSCMAIF V 


DESCCDSC$w ~LENSTHS = 0; 

DESC +45 sC38_C ASS] = DSCS$K_CLASS_D; 
DESCED OIYP Ej] = 0; 

DESC DSCSAy POINTER J = 0; 


STATUS = TRUE; 
OUT RABCRABSL_ CTX] = 
WHITE 


BEGIN 
DO 
IF (.STATUS EQL SS$ 


IF (STAT US Fete 
HEN STA TUS = SS$_NOR 
TATUS 


N EXITLOOP 


PP PWAAS ES FS PWS SUS EES BS MNURINIDINNINININPININININIPIPUNPININPIPINPIIDY 2 9 SO 
LJ o- 


yep1t.832:1 28185 


This routine is called to enter a mail message. 
OUT_RAB = Address of a RAB connected to an open output file. 
SYSSINPUT copied to file OUT_RAB. 


! Output file RAB 


! $tring desc 
' Routine status 


RM) 
HEN MATLSPUT “OUTPOTTMAIL $3 ETMSG(MAIL$_EDIT10)); 
Read from input and copy to output file 


MAILS_WRITEERR; 


eFATUS = = SMGSREAD STRING CRATE EL SMG_KEYBOARD ,DESC); 
SIGNAL (RMS$_BES,0,MAIL$_REENTER); 
UNTIL t. STATUS WEG SS$_BADESCAPE); 

(LSTA § Fal 358 pareevenum 


N 
STATUS EQL SNGS _EOF 
NAL bop READERR,1,SYSIN _DESC,.STATUS); 


SCSW_LENGTH] GTRU 255 
(MAILS READERR,1,SYSIN_DESC,RMS$_RTB, .DESCCDSC$W_LENGTH)); 
= RMSS$_RTB; 


| 
j 
| 
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yOLtOBD ene 1 8be 98:23:15 =H 


Liss-32 V4.0-742 
MASTER: CMAIL.SRCJEDIT.B32;1 


; 699 833 4 EXITLOOP; 
: 700 834 END; 
: 701 835 OUT_RAB RABSW_RSZ] = -DESCEDSC$W_LENGTH] 
: 70 8 : OUT“RABCRABSL-RBF) = .DESCCDSCSA-POINTER); 
: 70 0 4 IF NOT (STATUS = SPUT(RAB = .OUT-RAB,ERR=UTILSREPORT_IO_ERROR)) 
; 106 08 § OR .MAILSGL_FLAGSCMAIF_V_CTRCCFL1 THEN EXITLOOP TSTATUS = 0); 
: 706 0840 
: 707 0841 STRSFREE1_DX(DESC); 
: 708 OB4¢ 
: 709 084 RETURN (IF .STATUS 
: 710 OB44 4 OR (.STATUS EQL SMG$_EOF) 
: 711 45 3 THEN TR 
; ar 0846 ELSE MAIL$_SENDABORT) 
. 0847 1 END; 
.EXTRN SYSSPUT 
007¢ 00000 .ENTRY MAILSENTER, Save R2,R3,R4,R5,R6 
56 FASS CF 9 00002 MOVAB SYSIN_DESC, R6 
55 000000006 8F D0 00007 MOVL &#SMGS~EOF, RS 
54 000000006 00 i 0000E MOV LIBSSIGNAL, R4 
SE 08 C2 00015 SUBL , 
16 000000006 00 02 £1 00018 BBC a2 MAILSGL_FLAGS, 1$ 
OO7EDE98  8F DD 00020 PUSHL #831452 
000000006 00 01 FB 00026 CALLS #1, MAILSGETMSG 
50 DD 900 D PUSHL 
000000006 00 01 FB O0¢t CALLS #1 WAILSPUT OUTPUT 
6E 02000000 8F D0 00036 1$: MOVL #33554432, DESC 
04 AE D4 0003D CLRL DESC +4 
53 01 DO 00040 MOVL #1, STATUS 
52 04 AC DO 00043 MOVL GUT_RAB, R2 
18 A2 007E10D0 8F D0 00047 MOVL #8261846, 24(R2) 
5E DD OO04F 2$: PUSHL SP 
000000006 00 9F 00051 PUSHAB MAILSL_SMG_KEYBOARD 
000000006 99 02 FB 00057 CALLS #2, SMGSREAD_STRING 
5 50 00 0005 MOVL * STATUS 
3¢ 53 D1 00061 CMPL StAtUs, #60 
11 12 00064 BNEQ $ 
OO7EBEBB «BF OD 90066 PUSHL #8306363 
7E 04 0006C CLRL. = (SP) 
000181CO BF DD O06E PUSHL #98752 
64 ; FB 000 CALLS #3, LIBSSIGNAL 
C D1 00077 38: CMPL STATUS, #60 
b3 13 OO07A BEQL 
00018188 8F 5 4 anes CPL STATUS, #98744 
00000838 33 D1 09 CMPL TATUS, #2104 
03 1 c BNEQ 
94 DO 00 : 4$: MOVL #1, STATUS 
; E 5$: BLBS STATUS, 6$ 
53 D1 00094 CMPL TATUS, R5 
6 13 00097 BEQL 
3 pd 9099 PUSHL STATUS 
56 DD 00098 PUSHL R6 


Pa9e 185 


Se See Se Se Se Se he Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Be Se Bs Be Bete Se Se Ge Se Se Be Se 


0776 


EDIT OR ENTER A MESSAGE 


; Routine Size: 


007E1082 
64 


8F 


7E 
000181A8 


4 
83 000181A8 


58 


OA 
03 000000006 


50 007E805A 


Routine Base: 


71 
1 
#1 
a” 
# 
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wr 
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SS | “OOOO OCOOCOCOOOOOOSCSOOS 


SCODES + 0597 


1 § VAX-11 Bliss-32 V4.0-742 
2: DISKSVMSMASTER: CMAIL.SRCJEDIT.B32;1 


8261810 

4, LIBSSIGNAL 
ESC, #255 

$ 


DESC, =(SP) 
758958 
R6 


#1 

#8261810 

#5 LIBSSIGNAL 
#98728, STATUS 
DESC, 34(R2) 

DESC44, 40(R2) 
UTILSREPORT_10_ERROR 
#2, SYS$PUT 

RO, STATUS 

STATUS, 8$ 
MAILSGL_FLAGS+1, 8S 
STATUS 

#1, STRSFREE1_DX 
STATUS, 10$ 

STATUS, R5 

11$ 

#1, RO 


#8290394, RO 
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vO4 1f3eo-1984 93: 242:1 DISKSVMSMASTER: CMAIL.SRCJEDIT.B32;1 . a 


H ar O89 ! ROUTINE EDT_EXTRACT_IO(FILE_CODE,FILE_STREAM,RECORD_DESC,RHB_DESC) = 

: at 29 : FUNCTIONAL DESCRIPTION: 
3: 719 26 1! This routine is called by EDT when an EDT/EXTRACT is done. 
; 720 55 1! This routine only handles input file i/o, and passes the rest 
s 721 541! onto EDT's input routine 

. £ 3 0855 1! 
cee 0828 1 !-- 
3; 724 085 BEGIN 

: : 3 $859 LOCAL | 
hy 5 eh TATUS, 

: 728 0861 MORE _FLAG 

; 129 086¢ DESC”: VECTORC2,LONG); 

: 730 086 | 
3; 731 0864 =i 

: tae 0865 

; ff 0866 CALLG: 

: 734 0867 
; 735 0868 2 MAP | 
; 3 0869 FILE_CODE : REF VECTORL, ad EJ 

; 737 0870 FILE“STREAM = REF VECTORL BYTE, 

; 738 0871 RECORD DESC REF SBBLOCK, 
: 4 + RHB_DESC : REF S$BBLOCK; 
: ma Oaee If not input file i/o then pass it on to EDT 

3; «74 0876 IF .FILE STREAMCO] NEQ .EDT_K_INPUT_FILE | 
3; 74 0877 THEN RETORN CALLG(. AP, .EDT_ FICEIO) ~ 
3; 745 0878 ELSE BEGIN 
; 746 0879 ; IF .FILE CODECOJ f0 S és ppt _k OPEN_ INPUT 

3 747 0880 OR .FILE CODE 0 TEBT_K_CLOSE 
3; 748 0881 3 HEN RETORN RUE; 

; 749 0882 3 IF .FILE COC” fo). EQL .EDT_K_GET 

s 50 0883 4 THEN BEGIN 

s 751 0884 4 IF ALO. _FLAGSCMAIF _V_ISAM] 

.: oe 0885 5 THEN BEGIN 

; Fs 0886 5 IF 4 MAILSGET_ i MSG(DESC ,MORE_FLAG) 

3; 754 0887 5 THEN RETURN EOF; 

s 735 0888 5 ee ty Dx. RECORD _BESC. DESC); 

: 756 0889 5 RETURN TRUE; 

s vee 0890 5 END 

s 758 891 2 ELSE BEGIN 
; 759 B38 IF NOT .MAILSL_MSG_STS 
: 760 0893 5 THEN RETURN ee EOF; 
: 761 0894 5 esctO = .MAILSW RSIZ; | 
3 o06 Baa? 5 DESCL1) = .MAILSL— mse. RADR 
: 76 896 5 STRSCOPY_DX(.RECORD_DESC, pésc); 
3; 764 0897 5 MAILSGET_MSG(); 
3; 765 0898 5 RETURN TRUE; 
; 766 0899 5 END 
: 767 0900 4 END 

; 768 0901 ; ELSE SIGNAL(0); 

; 769 4 RETURN TRUE 

3; 770 090 ¢ END; 

: 771 0904 END; 


MAILSEDIT 
v04-000 
62 
04 A2 
Oc A2 
08 A2 


; Routine Size: 


EDIT OR ENTER A MESSAGE 


WOR 
23 00000000G 00 9€ it MOVAB 
2 00000000° 00 3 0009 MOVA 
f t ¢ gate SUBL 
08 BC 0 Be FB B5013 ak ad 
51 14 45 i 80018 MOVL 
61 6C FA Bp 055 CALLG 
04 000 ¢ RET 
04 BC 08 00 ED 00025 1$: CMPZV 
6D 13 0002A BEQL 
046 BC 08 00 Fe poss CMPZV 
64 13 000 EQL 
046 BC 08 00 ED 00035 CMPZV 
52 12 0003C NEQ 
1A 000000006 00 £9 0003E LBC 
5E DD 00045 PUSHL 
08 AE 9F 00047 PUSHAB 
000000006 00 02 FB O004A CALLS 
12 50 €9 00051 LBC 
04 AE 9F 00054 PUSHAB 
OC AC DD 00057 PUSHL 
63 02 FB OO05A CALLS 
3A 11 0005D RB 
08 000000006 00 €E8 OQO05SF 2$: BLBS 
50 0001027A 8F 00 00066 3$: MOVL 
Oe 00060 RET 
04 AE 000000006 00 3C O006E 4$: MOVZWL 
08 AE 000000006 00 00 00076 MOVL 
04 AE 9F OO07E PUSHAB 
OC AC DD 00081 PUSHL 
63 02 FB 00084 CALLS 
000006006 00 00 FB 00087 CALLS 
09 11 si BRB 
7E 04 00090 5$: CLRL 
000000006 00 01 FB 800s CALLS 
50 01 DO 00099 6$: MOVL 
04 0009C RET 


157 bytes, Routine Base: 


14 
18-Sep-1984 99:31:16 VAX=11 Bliss-32_V4.0-742 
14-Sep-1984 12:42:1 DISKSVMSMASTER: CMAIL.SRCJEDIT.B32;1 


000C 00000 sath ahaa - 


SCODES + O6AE 


am—Bwamnnwn 
roeRro—-oC mo 


a. #8, @FILE_CODE, EDT_K_OPEN_INPUT 


#0, #8, AFILE_CODE, EDT_K CLOSE 
#0, #8, @FILE_CODE, EDT_K_GET 
MAILSGL_FLAGS, 28 


DESC 

#2, MAILSGET_I_MSG 
RO, 3$ 

DESC 

RECORD DESC 
#2, STRSCOPY_Dx 


MAILSL_MSG_STS, 4$ 
#98938, RO 


MAILS$W_MSG_RSIZ, DE 
MAILSL_MSG_RADR, DE 


SC 
SC+4 


é. Y_DX 
#0, MAILSGET_MSG 
6$ 

=(SP) 

#1, LIBSSIGNAL 
#1, RO 


Pe Se Se Ge Se Be Be Be Se Ge Se Se Be Ge Ge Se Be Ge Be Se Be Be Se Be Se Ge Ge Be Be Ge Be Se Se Ge Se Se Be Be 
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MAILSEDIT EDIT OR ENTER A MESSAGE 16-Sep-1984 00:51:1 VAX-11 Bliss-32 V4.0-742 Page 32 
yOLtOBD 1a-8ep- 1382 99: 233 1$ DISKSVMSMASTER: CMAIL.SRCJEDIT.B32;1 9 48) | 
; 773 9905 1 ROUTINE COPY_MSG(FAB,RAB,NAM) = | 
: ote 9907 1 i Copy th e , Hil | 
H opy the current message to a temporary 2 
: 776 0908 1: 
: 777 0909 1: 
; v8 0919 1 i-- 
. Tr 911 2 BEGIN 
: 780 O9i¢ MAP 
: 781 091 FAB : REF $BBLOCK, 
; Be 0914 RAB : REF $BBLOCK, 
: 78 0915 NAM : REF $BBLOCK: 
: 784 0916 
: 785 091 CAL 
: 786 0918 SND_XABPRO : $XABPRO_DECL, 
: 787 0919 ATUS, 
: 788 0920 DESC : VECTORC2,LONG); 
3; 789 0921 
: 790 09 2 peste = NAMSC_MAXRSS; 
: 791 098 DESCC1) = .NAMCRAMSL_RSAJ; 
: 79 P 0924 2 SFAO(C(IF .MAIL$L_MYPID<16.16,0> NEQ 0 
: 79 P0925 2 THEN $DESCRIPTOR( 'SYSS$SCRATCH:MAIL_!XL_EDIT. TMP") 
>: 79% P 0926 2 ELSE SDESCRIPTOR('SYSSSCRATCH:MAIL~‘XW-EDIT.TMP")), 
: 795 0927 DESC,DESC,.MAILSL_MYPID); 
: 796 P 0928 2 $FAB_INIT(FAB=.FAB 
: 797 P 0929 ENS=.DESCEO], 
: 798 P0930 2 FNA=.DESCL1J 
: 799 P0931 2 FAC=(PUT, TRNS, 
; 800 P 0932 2 CTX=MAIL$_OPENOUT, 
: 801 P 0933 2 NAM=.NAM, 
; 802 P 0934 2 RAT=CR 
; 80 0935 2 RFM=VAR); 
; 804 0936 2 
: 805 P 0937 2 $XABPRO_INIT (XABSSND _XABPRO, 
> 806 0938 2 “u1C=(0,0)) 
: 807 0939 2 
: 808 0940 2 SND_XABPROLXAB$W_PRO] = MAILSC_TMP_PRO; 
: 810 P 0942 $ IF _ERR(SCREATE (FAB=.F AB, ERR=UTILSREPORT_I0_ERROR);, | 
> 811 0943 RETURN .STATUS); 
; sig 0944 | 
: 81 0945 FABLE ABS. | 18) = 
> B14 0946 = OA AMCNANSB_ RSL); 
: 815 0947 beet CLO] =~.NAMCNAMSB_RSLJ; 
: 816 P 0948 SRAB_ INIT (RAB .RAB 
: 817 P 0949 CTX=MAIL$_OPENOUT, 
ae tt: $984 endian | 
: 820 P 099¢ IF Fan cseP ame ASs oct -RAB, ERR=UTILSREPORT_10_ERROR) ;, | 
; 821 P 095 V_DLT) = 1; 
; 822 P 0954 $CLOSE (FAB=.FAB); 
; 8 0955 RETURN .STATUS); 
; Beh 0956 | 
: 825 095 RABCRABSL_CTX) = MAIL$_WRITEERR;: 
: § 0998 STATUS = “MAILSEXTRACT MESSAGE (1: RAB); 
: 95 FABLFABSL CTX] = MAILS_CLOSEOUT; 
: 828 P 0960 IP CERR GSE LOSE FAB; ERR=UTIL$REPORT_10_ERROR);, 
: 829 961 RETURN SSTATUSS: | 
| 


EDIT OR ENTER A 


wis 
fw 


ms 
moo 
wise 
rw 


> 
seo 
aw 
wre 


04 


000000006 


000000006 


34 


MESSAGE 


TW 


TW 


ou 


vw 


Pusan 
MoOmmoawo 


50 
50 
00 
57 
6E 


67 


; STRSCOPY DX(INPUT_DESC,DESC); 
RETURN TRUE 


FF 
oc 
04 
000000006 
04 
08 
006 


5003 


007E 1gKs 
020 


04 


15 
581 

Br ene 
0180 


63 


a] 
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PrP PMNowooroc,r 
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Sonor nms sm 


oroworv 


OCOMDAD wwovcVlvw°cn3owW wonodo—-Oo-DWowocvcvcwowowvoo 
SofFOBWoo MOOCoCooceo  CowmuomMmM—mMmwuinnoooryrmmm 
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nN 
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MO 09 NS MOL MMS OLWO OW MD OVI ONO 


}:t¢ VAX-11 Bliss-32_V4.0-742 
DISKSVMSMASTER 


\SYS$SCRATCH:MAIL_!XL_EDIT.TMP\ 


RESS P.ABZ 
\SYSSSCRATCH: MAIL_!XW_LEDIT.TMP\ 


“LONG 29 
“ADDRESS P.ACB 


svescneare. SYSSCONNECT 
SYSS$CLOSE 


t AYPID. 


(SP), #0, #80, (R7) 


, #88, S$RMS_PTR 


422547 $RMS_PTR 
i heh ILse TM TMP_PRO, SND_XABPRO+8 


SYSSCREATE 
Sfirys. 48 

6(R7) 

(R6), 52(R7) 


: Pa 
SCMAIL.SRCJEDIT.B32:1 


0935 


= 
Pa 
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| B 15 
MAILSEDIT EDIT OR ENTER A MESSAGE 16-Sep-1984 00:51:17 VAX=11 Bliss-32 V4.0-742 Page 34 
v04=000 eet re ee Se HS eee yt ae ce RY oo 
6E 03 A6 9A OOA3 MOVZBL 3(R6), DESC + 0947) : 
56 B AC B0 OOA MOVL RAB, R6 ; 0950, ; 
0044 &F 00 bE 00 C 0A MOVCS #0, (SP), #0, #68, (R6) : ; 
66 4401 F BO 000B MOVW rue) (R6) : : 
18 A6 OO7E10A2 8F DO 000B MOVL #8261 4 124 (RO) : : 
3 AG 7 00 000C0 MOVL R77, : : 
0140 BF BB 000C4 PUSHR #*M He 4 > 0955, : 
000000006 0 0 FB 000C8 CALLS #2, RRB : | ; 
DO OOOCF MOVL RO, STAT : ; 
1 52 ¢2«€ 90002 BLBS STATUS, 3$ : ; 
50 0S a7 01 EF 9000 EXTZV #7, #1. 5(R7), RO : | : 
60 1 00 000DB8 Ls #1. (RB) ; : 
7 DD OOODE PUSHL 7 : 
69 01 FB O00E0 CALLS #1, SYS$CLOSE : 
50 52 DO OOOE MOVL STATUS, RO : 
04 000E6 RET F | 
18 Ab 007E10D0 8F DO OO0E7 3$ MOVL pence 24(R6) + 0957. 
56 DD OOOEF PUSHL : 0958 
01 DD 000F1 PUSHL : 
000000006 00 02 FB O00F3 CALLS MAILSEXTRACT_MESSAGE : 
18 A7 OO7E105A 8F DO OOOFA MOVL fe MALL 24(R7)~ > 0959. 
0180 8F BB 00102 PUSHR #*M<R7,R8> + 0961 | 
69 02 FB 00106 CALLS #2, RySSCL OSE ; 
12 50 €9 00109 4$ BLBC ‘STATUS, : 
SE DD 0010C PUSHL SP + 0963 
00000000' 00 9F 0010E PUSHAB INPUT_DESC ; 
000900006 00 02 FB 00114 CALLS ae. STRSCOPY _Dx ; | 
50 01 DO 0011B MOVL #1, + 0964 | 
04 OO11E 5$ RET : 0965. 
| 


; Routine Size: 287 bytes, Routine Base: S$CODE$ + 0798 


MAILSEDIT 
v04- 


EDIT OR ENTER A MESSAGE 


15 
16- Sep-1984 00:51:1 VA 
14- mets Ti 1 2 I 


71 D 


: 835 966 1 ROUTINE DELETE_TMP(FAB) = 
; 836 967 1 !++ 
s 857 968 1 ! Delete the file that FAB describes 
; 838 0969 1! 
; 839 0970 1 i-- 
: 840 0971 BEGIN 
> B41 097¢ MAP 
; Bie 097 FAB : REF $BBLOCK; 
: 84 0974 
> B44 0975 FABLE ABSV. DLT) = 
> B45 0976 2 FABLFABS$ more = macs OPENIN; 
: B46 P 0977 IF ERR (SOPEN (FAB=.FAB,ERR=UTILSREPORT_10_ERROR);, 
: B47 0978 RETURN «STATU TH85 
: 848 0979 2 FABLFABSL_CTX] = MAILS_ Fre LNOTDEL; 
: 849 P 0980 2 IF TERR (SCLOSE (FAS FAB; ERR=UTILSREPORT_IO_ERROR);, 
: 850 0981 : RETURN .STATUS); 
: 851 098 
; 852 0983 2 RETURN TRUE 
; 853 0984 1 END; 
-EXTRN SYSSOPEN 
000C 00000 DELETE_TMP: 
.WORD Save R2,R3 
53 000000006 00 9 00002 MOVAB UTILSREPORT.IO_ERROR, R3 
2 04 AC DO 00009 OVL 
05 A2 € 8F 88 0000D BISB2 #128, 5(R2) 
18 A2 007E109A 8F D0 00012 OVL #3961786 24(R2) 
OC BB OOO1A PUSHR <R2,R3> 
000000006 00 02 FB 0001C CALLS a “StSSOPEN 
17 50 £9 00023 BLBC 1$ 
18 A2 007E11FO 8F D0 00026 MOVL iazoet 38 24 ¢R2) 
OC BB 0002E PUSHR 
000000006 00 02 FB 00030 CALLS #2, <eeee ose 
03 50 €9 00037 BLBC STATUS, 1$ 
50 01 DO 0003A MOVL #1, RO 
04 00030 1$: RET 
; Routine Size: 62 bytes, Routine Base: S$CODE$ + 0887 


man 


REJEDIT. B32;1 


Page 35 


Pete Se Se Se Be Be Be Be Be Be Ge Se Be 


(15) 


54 


15 
EDIT OR ENTER A MESSAGE 1p~3en~ 138% 99:33:16 VAX=11 Bliss-32 V4.0-742 Page 36 m 
14-Sep-1984 12:42:1 DISKSVMSMASTER: CMAIL.SRCIJEDIT.B32;1 (16) V 

: 0985 ROUTINE CALL_EDT_EDIT (FLAGS, FILEIO_RTN) = : 
H 036) ! : FUNCTIONAL DESCRIPTION: : 
3 8388 1} Call EDT to edit the file. Done this way so that if EDT signals ‘ 
; 990 1! an error, the handler does a default unwind to the caller of this ’ 
; 0991 1! routine ‘ 
; 0992 1 !-- : 
; 099 BEGIN ; 
; 0994 ‘ 
; 0995 LOCAL ’ 
; 0996 FAB : $FAB_DECL, ‘ 
; 0997 NAM : $NAM~DECL, : 
; 0998 2 RAB _: $RAB-DECL, : 
; 0999 § TUS, ‘ 
; 1000 TMPFAB : SFAB_DECL, ; 
; 1001 2 TMPNAM : SNAM-DECL, ‘ 
; «667 1002 2 TMPESS : $BBLOCKCNAMSC_MAXRSS], ; 
; 87 1003 2 TMPRSS : SBBLOCKLNAMS$C_MAXRSS]J, e 
> 874 1004 2 NAMBUF : SBBLOCKCNAMSC_MAXRSSJ, ° 
; 875 1005 2 XLATE_BPV : VECTORC2,LONG] | : 
: 876 1006 2 FILEIO_BPV : VECTORC2,LONGI; | : 
; 877 1007 2 | ‘ 
; 878 1008 2 ENABLE EDT_HANDLER; ; 
3; STP 1009 2 ‘ 
> 880 1010 2! ; ° 
3; 881 1011 2 ! Initalize temporary file FAB ; 
; 882 1012 2! : 
; 883 1013 2 SFAB_INIT(fab=tmpfab, ‘ 
; 884 P1014 2 fns=.input_desclCdsc$w_length] ‘ 
; 885 1015 2 fna=. input descldsc$a_pointerd, . 
> 886 1016 2 nam=tmpnam) ; : 
: 887 1017 2 | ‘ 
; 888 P 1018 2 SNAM_INIT(NAM=TMPNAM, ; 
; 889 P1019 2 ESS=NAMSC_MAXRSS, : 
; 890 P 1020 2 ESA=TMPESS, : 
; 891 P1021 2 RSS=NAM$SC_MAXRSS, ‘ 
; 892 1022 2 RSA=TMPRSS) ; ; 
3 893 1023 2 
> 894 1024 2 IF NOT (status=$PARSE(fab=tmpfab) ) THEN 
; 344 i362 § SIGNAL (MAIL$_OPENIN,1, input_desc,.status); 
; 897 1027 2 IF .MAILSGL_FLAGSCMAIF_V_EDTEDT] 
; 898 1028 THEN BEGIN 
; 899 1029 XLATE_BPVCO] = EDT_XLATE; 
: 900 1030 3 LATE_BPVL1) = 0; 
3; 901 1031 3 -FILEIO_RTN EQL 0 
; We 1032 3 HEN (.EDT_EDIT) (INPUT_DESC,OUTPUT_DESC, 
: 903 1033 3 COMMAND _DESC, JOURNAL _DESC,FLAGS,0,0,XLATE_BPV) 
: 904 1034 4 ELSE BEGIN 
: 905 1035 4 FILEIO_BPvtO] = EDT_EXTRACT_IO; 
: 906 1036 4 FILEIO BPVL1) = 0; 
; 907 1037 4 (.EDT_EDIT) (INPUT DESC ,QUTPUT_DESC, COMMAND DESC, JOURNAL _DESC, 
; 908 1038 4 FLAGS, F ILE10_6PV,0.XLATE_BPV) ; 
: 909 1039 ; END; 
; 910 1040 RETURN TRUE 
3; 911 1041 2 ND; 


oOo, 


15 
MAILSEDIT EDIT OR ENTER A MESSAGE 18-Sep-19 4 00:34:16 ys 


-74 
v04-0 14-Sep-1984 . $ é Page 435 


v4. 
:CMAIL.SRCJEDIT.B32;1 (16) 


“MAILSGL_FLAGSCMAIF_V_EDTXYZ] 


it to a temporary file. 


F .FILEIO_RTN NEQ 0 
HEN BEGIN 
SNAM_INIT(NAM=NAM, 
RSS=NAMSC_MAXRSS, 


RSA=NAMBUF) ; 
IF_ERR(COPY_MSG(FAB,RAB,NAM) ; , 
RETURN TRUE) ; 


END; 
(EDT EDIT) CINPUT_DESC ,QUTPUT_DESC); 
IF .FILEIO_RT 6 

THEN D 
RETURN TRU 
END; 


vv 
Oe a kk tk kk dd a dt 
jololelelolefelelelelelelelelelelelelolalo) 


NR —OOONAULS WN "OVO ONOUS wr 


NN 
ELETE_THPCFAB) ; 


Ce Oe Oe Oe Oe Os Oe Oe Oe Se Oe Se HO ws SESE SE Se eee 
WOODOODODDODODOOODOODOOOOOOO 


WNAIPIPINPIPINPININPININID 2 2 PS PO OS 
NM—OVOONAOUVUESWN “OC OONOUSwr 


IF 
'THEN 
! RETURN TRUE 
' N 5 
' 
Not an editor we know about. If reading a mail message, then copy 
' 
I 
T 
3 
3 
2 
2 
2 
2 
2 
1 


O1FC 00000 CALL_EDT_EDIT: 
“WORD 


rh 0 Save R2,R3,R4,R5,R6,R7,R8 ; 0985. 
56 FB33. «CF «(9E 00002 MOVAB EDT_XLATE, R8 : | 
57 00000000" 00 9€ 00007 MOVAB INPOT DESC, R7 : 
SE FB4C «6CE COS OO00E MOVAB <-1204TSP), SP : 
6D 010C CF DE 0001 MOVAL 7$, (FP) : 099 
0050 = 8F 00 6E es 00 2¢ 00018 mMovCS #0, (SP), #0, #80, $RMS_PTR : 101 
FEBC CD 5003 8F BO 00022 MOVW #20483, $RMS_PTR : 
FED2 CD 02 90 00029 MOVB #2, $RMS_PTRF22 3 
FEDB CD 02 90 iit 43 MOVB #2, SRMS PTR+31 ; 
FEE CD FESC CD 9€ 000 MOVAB TMPNAM, SRMS PTR+ ; 
FEE8 CD 04 AZ DO O003A MOVL § INPUT_DESC+47 $RMS_PTR+44 : | 
FEFO CD 67 90 00040 INPUT~DESC, $RMS_PTR+ : 
0060 8F 00 6E anes 00 2c 00045 MOVCS #0, (SP), #0, #98, SRMS_PTR + 1022 
FESC CD 6002 8F BO OO004F MOVW #24578, SRMS_PTR : 
4343 CD 01 +3 b0028 MNEGB #1, SRMS PTRF2 
FE60 CD 0110 CE 9€ 0005 OV TMPRSS, SRMS_PTR+4 : 
FE66 «CD 01 BE 0006 MNEGB #1, $RMS_PTRT10 : 
FE68 CD 0210 CE 9E 0006 MOVAB TMPESS, SRMS_PTR+12 ; | 
FEBC CD OF 9006 PUSHAB TMPFA > 1024. 
000000006 00 o1 FB 00 CALLS #1, SYSSPARSE ; 
13 O€ 0007 BLBS STATUS, 1$ : 
30 DD 0007C¢ PUSHL > 1025 
57 DD OOO7E PUSHL 3 
01 DD 9080 PUSHL : 
007E109A 8F DD 082 PUSHL 261786 ; 
000000006 9 04 FB 00 CALLS #4, LIBSSIGNAL : 
A 000000006 00 f OO8F 1$: BLBC MAILSGL_FLAGS+2, 4$ : 1037 
08 AE 68 9E 00096 MOVAB EDT_XLATE, XLATE_BPV : 10 
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15 
MAILSEDIT EDIT OR ENTER A MESSAGE 18- $ep-1984 00:51:1 VAX=11 Bliss=32 V4.0-742 
vO4=000 14- ~Sep-19 4 Tee DISKSVMSMASTER: CMAIL.SRCJEDIT.B832;1 


$ 3 : 1963 ! GLOBAL ROUTINE MAILSEDIT_READ_MSG = 

: 936 1065 1 ' FUNCTIONAL DESCRIPTION: 

: 3 1be9 i Invoke the ed d th 

: ; nvoke the editor to read the curent message 
: 939 1068 1 i ’ 
: 940 1069 1 i-- 

> 941 1070 2 BEGIN 

: 94 1071 LOCAL 

: 94 107¢ EDT_FLAGS; 

: 944 107 

: 945 1074 STRSFREE1_DX(INPUT_DESC); 

: 946 1075 STRSFREE1_DX (OUTPUT DESC) 

> 947 107%6 STRSFREE1_DX(JOURNAL_DESC); 

: 9468 1077 STRSFREE1_DX (COMMAND DESC); 

: 950 P 1079 IF LERR(MAILSLOAD_EDT(); 

: 951 1080 RETURN .STATUS): 

: 932 1081 

; 95 108¢ é IF MAILSNEW_MSG() 

: 994 1083 THEN MATLSDECR_NEWMAIL (MAILS$Q_USERNAME) ; 

: 956 1085 § ep EDT_FLAGS = .EDT_M_NOOUTPUT OR .EDT_M NOCREATE OR .EDT_M_NOJOURNAL; 
3; 957 1086 2 CALC_EDT_EDIT(.EBT_FLAGS,EDT EXTRACT _I0) 

: 958 1087 2 

: 959 1088 2 RETURN TRUE 

: 960 1089 1 END; 


001¢ 00000 .ENTRY MAILSEDIT_READ MSG. Save R2,R3,R4 
54 F772 CF 9E 00002 VAB  MAILSLOAD“EDT, 
53 000000006 00 9€ 00007 MOVAB STRSFREE1~DX, "Re 
52 00000000' 00 9E O000E MOVAB INPUT_DEST, R2 
52 DD 00015 PUSHL R2 
63 01 FB 00017 CALLS #1, STRSFREE1_DX 
18 A2 9F OOOIA PUSHAB OUTPUT DESC 
63 01 FB 0001D CALLS #1, STRSFREE1_Dx 
10 A2 OF 90020 PUSHAB JOURNAL _DESC 
63 01 FB 000 CALLS #1, STRSFREE1_Dx 
08 A2 9F 00026 PUSHAB COMMAND DES 
63 oi FB 000 9 CALLS #1, STRSFREE1_DX 
64 0 FB 02C CALLS #0. MAILSLOAD— EDT 
F 50 £9 900 F BLBC STATUS, 2$ 
000000006 00 00 FB 00 2 CALLS #0, MAILSNEW_MSG 
0D 50 E 00 BLBC = RO, 1 
000000006 00 9F 000 PUSHAB maicsa USERNAME 
000000006 00 01 FB 004 CALL MATLEDECR NEWMAIL 
0 2c. OA 34 A2 C9 00049 1$: BISL ot _M_NOCREATE, EDT_M NOOUTPUT, RO 
38 A2 (8 O04F BISL2 EDT"M™ NOJGUR NAL, EDT_FLAG 
OS0E C4 SF 00 33 PUSHAB EDT~ERTRACT_10 
50 DD 0005 PUSHL EDT~FLAGS 
02 FB 0059 CALLS #2, ~CALL_EDT_EDIT 
07 D0 0005E MOVL #1. RO 
04 00061 2% RET 
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+e ROUTINE MAILSCMD_EDIT = 
; FUNCTIONAL DESCRIPTION: 


Process the EDIT command by invoking callable EDT to edit the file 


ce 
BEGIN 
OCAL 


LAGS; 


STA 
EDT A 
STRSFREE1_DX(INPUT_DESC 
SIRSFREE PX (OUTPUT DESCS 
ST E1-Dx (JOURNAC_DE 
STRSFREET~ “DX (COMMAND ~DE 


CLISGET_VALUE(SD_INPUT, peut pent: 


IF -ERR(MAILSLOAD EDT(); 
RETURN .STATUS): 


F 
1 
1 
ta 


«STATUS 
HEN STATUS = CLISGET VALUE (SD COMMAND , COMMAND_DESC) 
ELSE IF .STATUS EQL CCI$_NEGATED 
OR .STATUS EQL CLI$ $ corn NEG 
THEN EDT FLAGS = .EBT_FLAGS OR .EDT_M_NOCOMMAND; 


STATUS = CLISPRESENT(SD_ JOURNAL) ; 
STATUS 


2 
THEN STATUS = CLISGET VALUE (SD JOURNAL , JOURNAL _DESC) 
ELSE IF .STATUS EQL CCI$_NEGATED 

OR .STATUS EQL CLI$ OENE G 

THEN EDT_FLAGS = .EDT_FLAGS OR .EDT_M_NOJOURNA! ; 


ald: A sealatiiea OUTPUT); 

“THEN STATUS = CLISGET yee cre OUTPUT ,OUTPUT_DESC) 
ELSE IF .STATUS EQ. CCI$ ATED 

OR .STATUS EQL CLI$ Oe NEG 

THEN EDT_FLAGS = .EDT_FLAGS OR .EDT_M_NOOUTPUT; 


STATUS = GLISPRESENT SD CREATE); 

IF .STATUS EQL NEGATED 

OR .STATUS ah 5 NES LOCNEG 

THEN EDT_ Puacs = .EDT_FLAGS OR .EDT_M_NOCREATE; 


IF CLISPRESENT (SD READ) 
THEN EDT_FLAGS = .EDT_FLAGS OR .EDT_M_NOOUTPUT OR .EDT_M_NOCREATE 
OR .EDT _M_ROJOURNAL ; 


EDT_FLAGS = 0; 
STATUS = = CLISPRESENT(SD_ COMMAND); 
T 


CALL_EDT_EDIT(.EDT_FLAGS,0); 
RETURN TRUE 
ND 
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COMMAND _DESC 

#2, CLISGET_VALUE 

STATUS, RB 

STATUS, R9 
EDT_M_NOCOMMAND, EDT_FLAGS 
$D_JOORNAL 

#17 CLISPRESENT 

STATUS, 5$ 

JOURNAL_DESC 

SD_JOURNAL 

We; CLISGET_VALUE 

STATUS, RB 

STATUS. R9 

EDT M_NOJOURNAL, EDT_FLAGS 
#17 CLISPRESENT 

STATUS, 8$ 

OUTPUT DESC 

SD_OUTPUT 
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247 bytes, Routine Base: S$CODE$ + OA8A 


; Routine Size: 


15 | 
MAILSEDIT EDIT OR ENTER A MESSAGE 18-Sep-1984 00:51:12 VAXo11 Bliss~52 v4. 0-742 Page 44. 
V04-000 14-Sep-1984 12:42:1 DISKSVMSMASTER: CMAIL.SRCJEDIT.B32;1 (19) | 


; 1020 1147 1 END 
; 1021 1148 0 ELUDOM 


-EXTRN LIBSSIGNAL, SYSSUNWIND 
PSECT SUMMARY 


: Run Time: :50. 
; Elapsed Time: 01:53.3 
3; Lines/CPU Min: £638 


| 
: 
: Name Bytes Attributes | 
: SOWNS 88 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 
; SCODES 2945 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; EDT _ADDRESSES 52 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 
; EDT_NAMES 96 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 
; Library Statistics | 
ee Bn eerste Syabols eo--e--- Pages Processing 
3 File Total Loaded Percent Mapped Time | 
; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 143 1 581 00:00.7 | 
$ “$255$DUA28: CMAIL .OBJ JMAILDEF .L 32; 1 457 12 2 26 00:00.2 | 
| 
; COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:EDIT/OBJ=OBJ$:EDIT MSRC$:EDIT/UPDATE=(ENHS$:EDIT) | 
; Size: 2355 code + 826 data bytes | 
| 


; Lexemes/CPU-Min: 4401 
; Memory Used: 229 pages 
; Compication Complete 
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